home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / ARCHIVERS / BEGINNER / TARZ / !tarZ / commands / !archive next >
Text File  |  1999-04-24  |  1KB  |  24 lines
  1. echo ******************************************************
  2. echo Do not use !StrongED V 1.00 while archiving
  3. echo ******************************************************
  4. wimpslot -min 464K
  5. echo wait ....
  6. echo scanning informations ....
  7. <tarZ$dir>.pathname { > <tarZ$dir>.work.path }
  8. dir <tarZ$dir>.work
  9. *count <tarZ$use>.files r~cv { > <tarZ$dir>.work.directory }
  10. <tarZ$dir>.Gawk -f <tarZ$dir>.scandir <tarZ$dir>.work.directory
  11. echo tar ....
  12. set tar$scrap $.tarscrap
  13. <tarZ$dir>.tar -cUf <tarZ$use>.archive.x_tar <tarZ$use>.files
  14. |wipe <tarZ$use>.files rf~c~v
  15. echo compress ....
  16. <tarZ$dir>.compress -v <tarZ$use>.archive.x_tar
  17. if "%0"="" then set archive$name x_tar-Z else set archive$name %0
  18. if "%0"<>"" then rename <tarZ$use>.archive.x_tar-Z <tarZ$use>.archive.<archive$name> 
  19. echo copy the archive <archive$name> from <tarZ$use>.archive to another disk
  20. *<tarZ$dir>.do Filer_OpenDir <tarZ$use>.archive
  21. <tarZ$dir>.Gawk "/^/ { system(sprintf(\"dir %s\",$1)); }" <tarZ$dir>.work.path 
  22. *wipe <tarZ$dir>.work.* ~v~c
  23.  
  24.